********************************************************************************************************
***October 6, 2023**************************************************************************************
***Wenchi Wei, Associate Porf., Tsinghua University, drweiwenchi@gmail.com******************************
***Nick Petrovsky, Associate Prof., City University of Hong Kong****************************************
***Xing Ni, Prof., Renmin University of China***********************************************************
********************************************************************************************************



******table 4******
sum I1_degreeoftransparency if I1_degreeoftransparency!=98&I1_degreeoftransparency!=99
sum I2_degreeofprofessionalism if I2_degreeofprofessionalism!=98&I2_degreeofprofessionalism!=99
sum I3_fiscalconditions if I3_fiscalconditions!=98&I3_fiscalconditions!=99
sum I4_satisfied if I4_satisfied!=98&I4_satisfied!=99
sum I5_politicalleadersbeblamed if I5_politicalleadersbeblamed!=98&I5_politicalleadersbeblamed!=99


******table 5******
reg I5_politicalleadersbeblamed treatment_professionalstaff treatment_COVIDpandemic ib2.treatment_transparencylevel if I5_politicalleadersbeblamed!=98&I5_politicalleadersbeblamed!=99,cluster(province_id)
outreg2 using finalresultstable5.doc, replace ctitle(Model 1 OLS) alpha(0.01,0.05,0.1) symbol(***, **, *)
reg I5_politicalleadersbeblamed treatment_professionalstaff treatment_COVIDpandemic ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender if I5_politicalleadersbeblamed!=98&I5_politicalleadersbeblamed!=99,cluster(province_id)
outreg2 using finalresultstable5.doc, append ctitle(Model 2 OLS) alpha(0.01,0.05,0.1) symbol(***, **, *)
reg I5_politicalleadersbeblamed treatment_professionalstaff treatment_COVIDpandemic ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I5_politicalleadersbeblamed!=98& I5_politicalleadersbeblamed!=99,cluster(province_id)
outreg2 using finalresultstable5.doc, append ctitle(Model 3 OLS) alpha(0.01,0.05,0.1) symbol(***, **, *)
oprobit I5_politicalleadersbeblamed treatment_professionalstaff treatment_COVIDpandemic ib2.treatment_transparencylevel if I5_politicalleadersbeblamed!=98& I5_politicalleadersbeblamed!=99,cluster(province_id)
outreg2 using finalresultstable5.doc, append ctitle(Model 4 OP) alpha(0.01,0.05,0.1) symbol(***, **, *)
oprobit I5_politicalleadersbeblamed treatment_professionalstaff treatment_COVIDpandemic ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender if I5_politicalleadersbeblamed!=98& I5_politicalleadersbeblamed!=99,cluster(province_id)
outreg2 using finalresultstable5.doc, append ctitle(Model 5 OP) alpha(0.01,0.05,0.1) symbol(***, **, *)
oprobit I5_politicalleadersbeblamed treatment_professionalstaff treatment_COVIDpandemic ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I5_politicalleadersbeblamed!=98& I5_politicalleadersbeblamed!=99,cluster(province_id)
outreg2 using finalresultstable5.doc, append ctitle(Model 6 OP) alpha(0.01,0.05,0.1) symbol(***, **, *)


******table 6******
reg I3_fiscalconditions ib2.treatment_transparencylevel if I3_fiscalconditions!=98&I3_fiscalconditions!=99,cluster(province_id)
outreg2 using finalresultstable6.doc, replace ctitle(Model 1 OLS) alpha(0.01,0.05,0.1) symbol(***, **, *)
reg I3_fiscalconditions ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender if I3_fiscalconditions!=98&I3_fiscalconditions!=99,cluster(province_id)
outreg2 using finalresultstable6.doc, append ctitle(Model 2 OLS) alpha(0.01,0.05,0.1) symbol(***, **, *)
reg I3_fiscalconditions ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I3_fiscalconditions!=98&I3_fiscalconditions!=99,cluster(province_id)
outreg2 using finalresultstable6.doc, append ctitle(Model 3 OLS) alpha(0.01,0.05,0.1) symbol(***, **, *)
oprobit I3_fiscalconditions ib2.treatment_transparencylevel if I3_fiscalconditions!=98&I3_fiscalconditions!=99,cluster(province_id)
outreg2 using finalresultstable6.doc, append ctitle(Model 4 OP) alpha(0.01,0.05,0.1) symbol(***, **, *)
oprobit I3_fiscalconditions ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender if I3_fiscalconditions!=98&I3_fiscalconditions!=99,cluster(province_id)
outreg2 using finalresultstable6.doc, append ctitle(Model 5 OP) alpha(0.01,0.05,0.1) symbol(***, **, *)
oprobit I3_fiscalconditions ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I3_fiscalconditions!=98&I3_fiscalconditions!=99,cluster(province_id)
outreg2 using finalresultstable6.doc, append ctitle(Model 6 OP) alpha(0.01,0.05,0.1) symbol(***, **, *)


******table 7******
reg I4_satisfied ib2.treatment_transparencylevel if I4_satisfied!=98&I4_satisfied!=99,cluster(province_id)
outreg2 using finalresultstable7.doc, replace ctitle(Model 1 OLS) alpha(0.01,0.05,0.1) symbol(***, **, *)
reg I4_satisfied ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender if I4_satisfied!=98&I4_satisfied!=99,cluster(province_id)
outreg2 using finalresultstable7.doc, append ctitle(Model 2 OLS) alpha(0.01,0.05,0.1) symbol(***, **, *)
reg I4_satisfied ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I4_satisfied!=98&I4_satisfied!=99,cluster(province_id)
outreg2 using finalresultstable7.doc, append ctitle(Model 3 OLS) alpha(0.01,0.05,0.1) symbol(***, **, *)
oprobit I4_satisfied ib2.treatment_transparencylevel if I4_satisfied!=98&I4_satisfied!=99,cluster(province_id)
outreg2 using finalresultstable7.doc, append ctitle(Model 4 OP) alpha(0.01,0.05,0.1) symbol(***, **, *)
oprobit I4_satisfied ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender if I4_satisfied!=98&I4_satisfied!=99,cluster(province_id)
outreg2 using finalresultstable7.doc, append ctitle(Model 5 OP) alpha(0.01,0.05,0.1) symbol(***, **, *)
oprobit I4_satisfied ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I4_satisfied!=98&I4_satisfied!=99,cluster(province_id)
outreg2 using finalresultstable7.doc, append ctitle(Model 6 OP) alpha(0.01,0.05,0.1) symbol(***, **, *)


******table A3******
reg education i.experimentgroup
outreg2 using manipulationchecktableA3.doc, replace ctitle(education) alpha( 0.001, 0.01, 0.05) symbol(***, **, *)
reg householdregislocation i.experimentgroup
outreg2 using manipulationchecktableA3.doc, append ctitle(house loc) alpha(0.001, 0.01, 0.05) symbol(***, **, *)
reg ethnichan i.experimentgroup
outreg2 using manipulationchecktableA3.doc, append ctitle(ethnicity) alpha(0.001, 0.01, 0.05) symbol(***, **, *)
reg age_range i.experimentgroup
outreg2 using manipulationchecktableA3.doc, append ctitle(age) alpha(0.001, 0.01, 0.05) symbol(***, **, *)
reg income_range i.experimentgroup
outreg2 using manipulationchecktableA3.doc, append ctitle(income) alpha(0.001, 0.01, 0.05) symbol(***, **, *)
reg gender i.experimentgroup
outreg2 using manipulationchecktableA3.doc, append ctitle(gender) alpha(0.001, 0.01, 0.05) symbol(***, **, *)


******table A4******
reg I1_degreeoftransparency ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I1_degreeoftransparency!=98&I1_degreeoftransparency!=99,cluster(province_id)
outreg2 using manipulationchecktableA4.doc, replace ctitle(transparency OLS) alpha( 0.01, 0.05,0.1) symbol(***, **, *)
oprobit I1_degreeoftransparency ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I1_degreeoftransparency!=98&I1_degreeoftransparency!=99,cluster(province_id)
outreg2 using manipulationchecktableA4.doc, append ctitle(transparency OP) alpha( 0.01, 0.05,0.1) symbol(***, **, *)
reg I2_degreeofprofessionalism i.treatment_professionalstaff i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I2_degreeofprofessionalism!=98&I2_degreeofprofessionalism!=99,cluster(province_id)
outreg2 using manipulationchecktableA4.doc, append ctitle(budgeting professionalism OLS) alpha(0.01, 0.05,0.1) symbol(***, **, *)
oprobit I2_degreeofprofessionalism i.treatment_professionalstaff i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I2_degreeofprofessionalism!=98&I2_degreeofprofessionalism!=99,cluster(province_id)
outreg2 using manipulationchecktableA4.doc, append ctitle(budgeting professionalism OP) alpha( 0.01, 0.05,0.1) symbol(***, **, *)


******table A5******
reg I1_degreeoftransparency i.treatment_professionalstaff ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I1_degreeoftransparency!=98&I1_degreeoftransparency!=99,cluster(province_id)
outreg2 using manipulationchecktableA5.doc, replace ctitle(transparency OLS) alpha( 0.01, 0.05,0.1) symbol(***, **, *)
oprobit I1_degreeoftransparency i.treatment_professionalstaff ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I1_degreeoftransparency!=98&I1_degreeoftransparency!=99,cluster(province_id)
outreg2 using manipulationchecktableA5.doc, append ctitle(transparency OLS) alpha( 0.01, 0.05,0.1) symbol(***, **, *)
reg I2_degreeofprofessionalism i.treatment_professionalstaff ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I2_degreeofprofessionalism!=98&I2_degreeofprofessionalism!=99,cluster(province_id)
outreg2 using manipulationchecktableA5.doc, append ctitle(budgeting professionalism OP) alpha(0.01, 0.05,0.1) symbol(***, **, *)
oprobit I2_degreeofprofessionalism i.treatment_professionalstaff ib2.treatment_transparencylevel i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I2_degreeofprofessionalism!=98&I2_degreeofprofessionalism!=99,cluster(province_id)
outreg2 using manipulationchecktableA5.doc, append ctitle(budgeting professionalism OP) alpha( 0.01, 0.05,0.1) symbol(***, **, *)


******figure A1******
graph bar (mean) I1_degreeoftransparency if I1_degreeoftransparency!=98& I1_degreeoftransparency!=99,over ( treatment_transparencylevel ) stack blabel(bar)


******figure A2******
graph bar (mean) I2_degreeofprofessionalism if I2_degreeofprofessionalism !=98& I2_degreeofprofessionalism !=99,over ( treatment_professionalstaff ) stack blabel(bar)


******figure A3******
reg I5_politicalleadersbeblamed treatment_professionalstaff treatment_COVIDpandemic i.treatment_transparency_merge12 if I5_politicalleadersbeblamed!=98&I5_politicalleadersbeblamed!=99,cluster(province_id )
estimates store A
reg I5_politicalleadersbeblamed treatment_professionalstaff treatment_COVIDpandemic i.treatment_transparency_merge12 i.education i.householdregislocation i.ethnichan i.age_range i.gender if I5_politicalleadersbeblamed!=98&I5_politicalleadersbeblamed!=99,cluster(province_id)
estimates store B
reg I5_politicalleadersbeblamed treatment_professionalstaff treatment_COVIDpandemic i.treatment_transparency_merge12 i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I5_politicalleadersbeblamed!=98&I5_politicalleadersbeblamed!=99,cluster(province_id)
estimates store C
coefplot A B C, xline(0) keep(treatment_professionalstaff treatment_COVIDpandemic 2.treatment_transparency_merge12) levels(90) legend(order(1 "90%") rows(1))

oprobit I5_politicalleadersbeblamed treatment_professionalstaff treatment_COVIDpandemic i.treatment_transparency_merge12 if I5_politicalleadersbeblamed!=98&I5_politicalleadersbeblamed!=99,cluster(province_id )
estimates store A
oprobit I5_politicalleadersbeblamed treatment_professionalstaff treatment_COVIDpandemic i.treatment_transparency_merge12 i.education i.householdregislocation i.ethnichan i.age_range i.gender if I5_politicalleadersbeblamed!=98&I5_politicalleadersbeblamed!=99,cluster(province_id)
estimates store B
oprobit I5_politicalleadersbeblamed treatment_professionalstaff treatment_COVIDpandemic i.treatment_transparency_merge12 i.education i.householdregislocation i.ethnichan i.age_range i.gender i.province_id if I5_politicalleadersbeblamed!=98&I5_politicalleadersbeblamed!=99,cluster(province_id)
estimates store C
coefplot A B C, xline(0) keep(treatment_professionalstaff treatment_COVIDpandemic 2.treatment_transparency_merge12) levels(90) legend(order(1 "90%") rows(1))

































